dados <- readxl::read_xls("ipeadata[15-03-2024-10-52].xls") |> mutate(Data = paste0(Data, ".01") |> as.Date(format = "%Y.%m.%d"), Mês = factor(month(Data, label = TRUE)), Ano = factor(year(Data)) )
Os dados são do ICMS do estado do Rio de Janeiro, coletados no período de janeiro de 1993 a dezembro de 2023.
dados <- deflate(dados$ICMS, dados$Data, "12/2023", "igpm") |> ts(start = c(1993, 1), frequency = 12) |> (\(x) { tibble( Data = time(x) |> zoo::as.Date(), ICMS = c(as.matrix(x)) ) |> mutate( Ano = factor(year(Data)), Mês = factor(month(Data, label = TRUE)) ) })()
Temp <- dados |> plot_time_series( Data, ICMS, .interactive = TRUE, .title = "" )
Seas <- dados |> ggplot( aes( x = Mês, y = `ICMS`, group = Ano, color = Ano ) ) + geom_line() + theme_bw() + labs(y = "ICMS", x = "") + scale_color_manual(values = viridis::mako(33))